Sub ImportMembers()
DoCmd.TransferDatabase _
     acImport, _
     "Microsoft Access", _
     "C:\LunarSociety\OLS1.mdb", _
     acTable, _
     "MEMBERS", _
     "tblOLSmembers"

End Sub
